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MODULE FIND ( 
LAN 
IDENT 
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BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 

'‘w ALL RIGHTS RESERVED. 
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DANCE THE TER OF 
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is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE 
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tt THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: OORPORAT i On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
° '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
;  cebtinhiniinkhinasennaidmyiakebeebetneeeneteidenaieeeabenNeNeiNG 
9 i FACILITY: FI1ACP Structure Level 2 
9 i ABSTRACT: 
; This routine performs a find operation on the indicated directory. 
0 
0 
0 


STARLET operating system, including privileged system services 


ix tie-off of NOP find, done wrong in ACG0354 
v03-005 CDS0002 Christian D. Saether 18-Jan-1984 
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Obe and internal exec routines. 
Ode 
boG8 i 
9047 i AUTHOR: Andrew C. Goldstein, CREATION DATE: 3-Jan-1978 13:37 
2036 i MODIFIED BY: 
051 v03-007 ACG0408 Andrew C. Goldstein, 21-Mar-1984 12:04 
O03¢ Make APPLY_RVN and DEFAULT _RVN macros 
bee v03-006 Ac60396 Andrew C. Goldstein, 14-Feb-1984 20:45 
B28 
05 


i ENVIRONMENT : 
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| 
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; 6038 } Modify interface to APPLY_RVN and DEFAULT_RVN. ; 
: 0060 4 i v03-004 cps0001 Christian D. Saether 29-Dec-1983 ; 
: ope: ! } Use L_NORM Linkage and BIND_COMMON macro. : 
; $08 ;7 V03-003 LMP0166 L. Mark Pilant, 28-0ct-1983 19:13 3 
; 064 1! Correct a bug that caused execute access to grant write access ; 
: Bee? : } to directories during a create-if operation. : 
: 0067 1! V03-002 ACG0354 Andrew C. Goldstein, 15-Sep-1983 10:52 ; 
: Bees : } Tie off FIND with FINDFID and no result string ; 
; 0070 :% V03-001 ACG0323 Andrew C. Goldstein, 25-Mar-1983 18:42 ; 
: boo4 : Add optional result name arguments : 
; $078 1 i V02-006 ACG0259 Andrew C. Goldstein, 26-Jan-1982 19:13 ; 
; oie : Add mode arg to REMOVE ; 
: 0076 1! : 
; Bo6 : Support execute protection on directories ; 
; 0079 1/3 V02=004 ACG0223 Andrew C. Goldstein 17-Nov-1981 21:52 ; 
; 4's } Support modification of version Limit 

: 0082 1 v02-003 ACG0208 Andrew C. Goldstein, 12-Nov-1981 11:32 

: oo ' Add segmented directory record support 

; 0085 1 | v02-002 ACG0167 __ Andrew C. Goldstein, 16-Apr-1980 19:26 

: 0086 ' Previous revision history moved to F11B.REV 

; Be 

: 1 

: 1 

; 1 
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v02-005 ACG0228 Andrew C. Goldstein, 25-Nov-1981 19:16 
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REQUIRE ‘SRC$:FCPDEF.B 
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FUNCTIONAL DESCRIPTION: 
This routine performs a FIND operation on the indicated directory. 


CALLING SEQUENCE: 
FIND (ARG1, ARG2, ARG3, ARG4, ARGS) 


INPUT PARAMETERS: 
ARG1: address of descriptor List in buffer packet 
aoee! address of Fl 
ARGS: 0 to just do a find 
1 to remove the found entry 
2 to set version Limit in entry ‘ 
4 to locate file and access directory for write 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
ARG2: file ID and context returned in FIB 
ARG4: (optional) Length of found file name 
ARGS: (optional) found filename 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
Directory LRU may be altered 
directory blocks read ; 
resultant string written into buffer packet 


' buffer to hold predecessor name string 
RESULT_STRING : VECTOR CFILENAME LENGTH+6, BYTEJ, : 
! Buffer to build result name string 


BEGIN 
MAP 
ABD : REF BBLOCKVECTOR C,ABDSC_LENGTHI, 
! descriptor list arg 
FIB : REF BBLOCK; ! FIB argument 
LOCAL : 
1 COUNT, ' count of name string 
§ NAME _DESC : BBLOCK END LENGTH. ! file name descriptor 
PREV_DESC : BBLOCK CFND LENGTH), ! previoys name descriptor 
4 NAME _BUFFER : VECTOR CFILENAME_LENGTH, BYTE), 
5 ! Buffer to hold parsed file name string 
$ PREV_BUFFER : VECTOR CF ILENAME LENGTH, BYTE 
8 
9 
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EXTERNAL ROUTINE 
PMS_START_SUB 


PMS_END_SUB 
CoP 


: REF BBLOCK, 


RESULT_LENGTH, 
START BLOCK, 
START_REC, 
STARTLVER, 
VBN; 
BIND_COMMON; 
DIR_CONTEXT_DEF; 


11 
1b-3¢ -1984 231: VAX-11 Bliss-32 V4.0-742 Page 
1 =3eh=1 RF 99: 3:38 DISKSVMSMASTER:CF11X.SRCJFIND.B32;1 " (2) | 
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i 
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i 
i 


a 


Length of above 

block number to start search 
record number to start search 
version entry to start search 
ointer fo directory record 


BN of directory block processed 


: LLNORM ADDRESSING MODE (GENERAL), 
; star 

: LLNORM ADDRESSING MODE (GENERAL), 

: L_NORM, i 


t_subfunction metering 
end subfunction meterin 


copy file name to result string 


Y 

: L_NORM, ' access the elrectery 
PARSE_NAM : LINORM, ' parse file name string 
DIR_SCAN : L_NORM, ! search the directory 
NEXT_REC : L-NORM, ! get next directory record 
RETURN_DIR : L_NORM, ! return file name to user 
MARK _DIRTY : LINORM, ! mark buffer for write-back 
NEXT DIR_REC : LLNORM, ! read next directory record 
REMOVE : LINORM; 


Start metering for this subfunction. 


PMS_START_SUB (PMS_FIND7; 


If this is an operation on a spooled device, noop it and return a file ID 
of -2, -2 with success. 


IF .CLEANUP_FLAGSCCLF _SPOOLF ILE] 


| 

r di 

: remove directory entry | 
| 

| 


THEN 
BEGIN 
FIBLFIB$W_FID_NUM) = -2; 
FIBCFIBSW-FID-SEQ) = -2: 
FIBCFIB$W-FID-RVN] = 0; 
FIBCFIBSB~FID-NMX] = -1; 
KERNEL_CACL (COPY_NAME, .ABD); 
RETURN; 
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} Parse the file name. | 


-ABDCABDS$SC_NAME, ABDS$W_COUNT] 


PARSE_NAME (NAME DESC. NAME BUFFER | 
ABD TEXT] + .ABDCABDSC_NAME, ABDSW_TEXT] + 1, .FIBCFIBSW_NMCTL)); | 

| 

| 


KBD$C_NAME , ABDSW 


! Access the directory. We need write access if this is a remove or set 
! version operation, read access if there are any wild cards, and 
execute access if just a simple lookup. 
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14-Sep-19 3B 93: 333 DISK KSVMSMASTER:CF11X.SRCIFIND.B32;1 . (2) | 
07 9 
9 DIR_ACCESS (.F1B, | 
9 (IF .FIND_MODE NEQ 0 
9 THEN WRITE ACCESS 
0 ELSE IF .NAME_DESCCFND_WILD) 
0 THEN READ_ACCESS 
4 ELSE EXEC"ACCESS)); 
0 : If the lookup will have no further effect (FINDFID, no remove, and | 
8 i no result string) then all we wanted was a protection check on the 
0 directory, so stop now. 


IF .FIND MODE EQL 0 

AND .F 18 F 1Bsy _FINDFIDJ 

AND C"RES, AGD$W_COUNT] EQL 0 
THEN’ RETURNS 


staat. BLOCK = o: 0; ' assume search from start 


I 0; 
LAST PENTRYCOM = 


' Default the RVN of the supplied file ID to 0 if current volume, to | 
allow the search for file ID to work. 
| 
| 
| 


DEFAULT_RVN (FIBCFIBSW_FID_RVNJ, .CURRENT_RVN); 
! If this is a wild card operation (i.e., if the wild card context is 


: nonzero), position to the indicated record. This is done with the 
positional context and the supplied resultant name string, if any. 


IF .FIBCFIBSL_WCC) NEQ 0 
THEN 
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EGI 
START_BLOCK = pte ier ries. WCC))<6,10>; 
47 START_REC = .(FIBCFIBS wtc])<0,6> 
48 OUNT™= MINU (.ABDCABD$C_RES ABDSW._ couNT., 
49 if .ABDCABDSC seek ABD$W_ COUNT Eau 2 
50 THEN . (ABDCABD SCR Rest. ABOS$W_TEXT 
53 : 0° ABDSC"RESL, ABDSW_TEXT ; 1)<0,16> 
5 ); 
54 PARSE _NAME (PREV ABDEABSSC PREV BUFFER, .COUNT, ABDCABDSC_RES, ABD$SW_TEXT] 
55 RES, ABDSW_TEXT] + 1, 0); 
2 IF PREV _DESCEN 
3 THEN ERR_EXIT (Ses Ma? TLENAME) ; 
59 ! If no resultant string is supplied (noted by a 0 count). position 4 i 
60 i scanning over the indicated number of records in the indicated bloc 
69 Then, if there are no wild cards in the version, scan to the last version. 
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, -DIR_VBN-1, .DIR_ENTRY, .DIR_VERSION, .DIR_PRED, -1); 
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000 
: 1 1310 
; g 1311 He DIR_SCAN (NAME_DESC, FIBCFIBSW_FID], .START_BLOCK, .START_REC, .START_VER, .DIR_PRED, - 
s 4 1 i : FIBCFIBSL_WCC) EQL 0 
3 2 : 1 N ERR_EXIT™ (SS$_NOSUCHF ILE) 
: 7 1 18 prein 
: 8 131 FIBCFIBSL_WCCI 
: 329 1318 ERR_EXIT TSS$ I NOMOREFILES) ; 
3 , ' 4 END; 
: 1321 ! Extract the file ID and context of the found entry and return the resultant 
: 1 ¢ i string. | 
i 338 tae | 
s 336 13 5 CHSMOVE (FIDSC_LENGTH, DIR_VERSIONCDIR$W FID), FIBCFIBSW_FIDJ); | 
; 337 1326 2 APPLY RYN (FIBTFIBSu_ F1D TRONS. CURRENT-RVN) ; 
; 338 1327 an E_DESCCFND_WIC D4 
3. BP \ 8 Ane ADE DESCLFND suit D VER) 
3 319 1% 4 OF Fie FiB$v_WwILB) 
; 34 1331 NF IBLF IBSL _WCCJ = (.DIR_VBN-1) * 6 + .DIR_RECORD + 1 
; 1336 ELS 
; See 1387 FIBCFIBSL_WCC] = 0; 
: 346 1335 KERNEL CALL (RETURN_DIR, RESULT_LENGTH, RESULT_STRING, .ABD); 
3 S4r 1336 IF ACTOALCOUNT GEQU™5 
; 348 1337 THEN 
; 349 1338 BEGIN 
: 350 1339 -RESLEN Ans = ,RESULT_LENGTH 
s 351 1340 3 CHSMOVE” ( -RESULT TP ENGTH, RESULT STRING, .~RESULT_ARG); 
3 Soe 1341 END. 
3. 333 1306 
; «354 134 ! If we are asked to set the version Limit, do so. We iterate through 
s 333 1344 2 ! multiple directory records if necessary. Then return the version 
: 356 1345 2! Limit, regardless. 
3 337 1346 ! 
; 358 1347 
; 359 1348 y -FIND_MODE EQL 2 
; 360 1349 ND .VERSION_COUNT EQL 0 
; 361 1350 THE N 
: 36e 1351 BEGIN | 
s 36 1326 P = «DIR ENTRY; 
3 64 132 VBN = .DIR_VBN; 
. 65 1354 dO 
; 366 1355 4 BEGIN 
; 67 1328 4 PCOIRSW_VERLIMIT] = .FIBCFIBSW_VERLIMIT); 
; 368 1357 4 MARK_DIR -P); 
; 369 1358 4 P = REXT_DIR_REC (.P, VBN); 
3; 370 1323 4 N 
3 A! 1307 es -P EQL 0; 
; 3 136¢ FIBCF lBéy_ VERLIMIT] = .VERSION_LIMIT; | 
3 75 1364 ' If this is a REMOVE function, do so. 
: 76 1365 ! 
; 377 1366 


F 11 | 
16-Sep-1984 231: VAX-11 Bliss-32 V4.0-742 Page 8 
a aet 1 99:35:35 DISKSVMSMASTER:CF11X.SRCJFIND.B32;1 . (2) | 
1367 2 IF .FIND_MODE 
: o8 THEN REMOVE (0); 
! A } Stop metering of this subfunction. 
1 i 
t3 PMS_END_SUB (); 
1375 1 END; ' end of routine FIND 
.TITLE FIND 
“IDENT \V04=000\ 
.PSECT $CODE$,NOWRT,2 
FFFF FFFF FFFF OQO000 P.AAA: .WORD <1, <1, =1 : 
2A 2€ 2A 00006 P.AAB: ASCII \*.#\ : 
.EXTRN PMS _START_SUB, PMS_END_SUB 
“EXTRN COPY_NAME, DIR_ACCESS 
“EXTRN PARSE_NAME, DIR SCAN 
TEXTRN NEXT_REC, RETURR_DIR 
-EXTRN MARK-DIRTY, NEXT-DIR_REC 
“EXTRN REMOVE 
03FC 00000 -ENTRY FIND, Save R2,R3,R4,R5,R6,R7,RB,RP : 1082 | 
59 00006 CF 9E 90002 MOVAB DIR_SCAN, R9 : 
3E FEEO CE 9E 0000 MOVAB =288(SP), SP ; 
5 0008 CA 9E 0000C MOVAB Z16(BASES, R7 + 1144 
56 00D CA 9E 00011 MOVAB g0 (BASE) R6 ; 
55 OC A6 9E 00016 MOVAB 12(R6), R5 + 1146 
06 DD 000A PUSHL #6 + 1169 
000000006 00 01 FB 0001 CALLS #1, PMS_START_SUB : 
6A 95 000 TSTB = (BASE) : 1175 
28 18 000 BGEQ 1$ : 
50 08 AC DO 00027 MOVL FB. RO : 1178 
04 AO 02 AE 00028 MNEGW #2, 4(RO) : 
50 08 AL DO 0002F MOVL £18. RO : 1179 
06 A0 02 A 00 : MNEGW #2, 6(RO) ; 
50 AC DO 000 MOVL F168, RO : 1180 
08 AO B4 00038 CLRW «=- & (RO) : 
50 AC DO 000 MOVL FIB, RO + 1181 
09 ~=«A0 01 BE 004 MNE #1, 9(RO) ; 
04 AC DD 0004 PUSHL ABD + 1182 
00006 CF 01 FB 0004 CALLS #1, COPY_NAME ; 
04 O004E RET : 1177 
50 08 A pO OO4F 1$: MOVL at RO > 1190 
7E 14 Ad 3C 9093 MOVZ2WL 20(RO), =(SP) : 
51 04 ac 00 0005 MOVL ABD, Ri ; 
50 10 Al 3¢ 0 38 MOVZWL 1ecR1) RO : 
11 A140 9F F PUSHAB 17(R1) {RO} ; 
7E 12 Al 3¢ 63 MOVZ2WL 18(R1), =(SP) > 1189 
90 ad 9F 0006 PUSHAB NAME_BUFFER ; 
FO AD 9F OOO6A PUSHAB NAME ~DESC : 
00006 CF 0 FB $0 CALLS #5, PARSE_NAME ; 
0c ac 05 00 TSTL FIND_MODE ; 1198 | 
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CALLS E 

298: CALLS 10, PMS_END_SUB 
RET 

1 END 

0 ELUDOM 


3 PSECT SUMMARY 
: Name Bytes Attributes 
: $CODES 697 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


ee ee gee ea ee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
; _$255$DUA28:CSYSLIBILIB.L32;1 18619 38 0 1000 00:02.0 


; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:F IND/OBJ=OBJ$:F IND MSRC$:F IND/UPDATE=(ENHS$:F IND) 


688 code + 9 data bytes 
ag Pee 00:26 
Flapsed Time: si 9 


Lines/CPU Min 53 
Lexenes/CPU-Rin: 39048 
347 pages 


; Routine Size: 688 bytes, Routine Base: S$CODE$ + 0009 
poo Ma Complete 
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